home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1995 April / Internet Tools.iso / mail / listserv / utils / clean_mbox.Z / clean_mbox
Encoding:
Text File  |  1995-01-30  |  537 b   |  25 lines
  1. #!/bin/sh
  2.  
  3. main()
  4. {
  5.         cd /usr/server
  6.         for m in `find . -name mbox -print`
  7.         do
  8.           roll4 $m
  9.         done
  10. }
  11.  
  12. roll4()
  13. {
  14. _file="$1"
  15.  
  16.         dir=`dirname $_file`
  17.         file=`basename $_file`
  18.  
  19.         [ -f ${dir}/${file}.3 ] && mv ${dir}/${file}.3 ${dir}/${file}.4
  20.         [ -f ${dir}/${file}.2 ] && mv ${dir}/${file}.2 ${dir}/${file}.3
  21.         [ -f ${dir}/${file}.1 ] && mv ${dir}/${file}.1 ${dir}/${file}.2
  22.         [ -f ${dir}/${file}   ] && mv ${dir}/${file}   ${dir}/${file}.1
  23.         cat /dev/null > $_file
  24. }
  25.